home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / signal / signal.dem < prev    next >
Text File  |  1999-09-16  |  1KB  |  40 lines
  1. //function signal()
  2. mode(0)
  3. xbasc();
  4. getf('SCI/demos/signal/spect.dem');
  5. getf('SCI/demos/signal/remezfilt.dem');
  6. demolist=['Spectral Estimation ';
  7.           'IIR filter design ';
  8.           'Minimax FIR filter design'];
  9. while %t then
  10.   num=x_choose(demolist(:,1),'Choose a topic');
  11.   if num=0 then 
  12.      break;
  13.   else
  14.      select num
  15.      case 1 then 
  16.        spectdem();
  17.      case 2 then        
  18.        ystr=[ 'type (lp, hp, bp, sb) ';
  19.               'order (integer)';
  20.               'design (butt, cheb1, cheb2 , ellip)' ;
  21.               'cut-off frequencies (2-vector in [0, 0.5])';
  22.               'error values  0 delta(1),delta(2) 1 '];
  23.        w=x_mdialog('Choose filter type and parameters',...
  24.                  ystr,['bp';'3';'ellip';'0.15 0.25';'0.08 0.035']);
  25.        hz=iir(evstr(w(2)),w(1),w(3),evstr(w(4)),evstr(w(5)));
  26.        [hzm,fr]=frmag(hz,256);
  27.        xselect();xbasc();
  28.        plot2d(fr',hzm')
  29.        xtitle('Discrete IIR filter '+'( '+ w(3)+' ) ',' ',' ');
  30.      case 3 then
  31.        xbasc();xselect();
  32.        remezfilt();
  33.      end;
  34.   end,
  35. end;
  36.  
  37.  
  38.  
  39.  
  40.